Remove side-effect-free markup for assoc-default

* lisp/subr.el (assoc-default): assoc-default isn't
side-effect-free, because it takes a :test parameter that can do
anything (bug#37943).

diff --git a/lisp/subr.el b/lisp/subr.el
index 660367642aaf680fa7acdd08a9251d7325373e5d..08ff38ff8c1d0226246f4b3d9cf60f6141633a73 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -766,7 +766,6 @@ If that is non-nil, the element matches; then `assoc-default'
 
 If no element matches, the value is nil.
 If TEST is omitted or nil, `equal' is used."
-  (declare (side-effect-free t))
   (let (found (tail alist) value)
     (while (and tail (not found))
       (let ((elt (car tail)))